home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 1 / NetNews Offline Volume 1.iso / install_english < prev    next >
Text File  |  1996-04-02  |  2KB  |  52 lines
  1. (if (>= (shiftright (getversion) 16) 37)
  2. ((set assignname "NetNews_Lib")
  3. (complete 0)
  4. (welcome)
  5. (set noassign (= (getassign assignname) ""))
  6. (if noassign
  7. ((set level @user-level)
  8. (set grnworkdir (tackon @default-dest assignname))
  9. (set error true)
  10. (while error
  11. ((set grnworkdir
  12. (askdir
  13. (default grnworkdir)
  14. (prompt "Please enter the name of the directory into which the GRn work file should be copied.")
  15. (help @askdir-help)
  16. (newpath)))
  17. (if (not (patmatch "#?:#?" grnworkdir))
  18. (set grnworkdir (expandpath grnworkdir)))
  19. (set error (patmatch "#?[\"*]#?" grnworkdir))
  20. (if error
  21. (message "The selected directory name is not valid. Don't use these characters: \" *."))
  22. (if (not error)
  23. (if (not (exists grnworkdir (noreq)))
  24. ((set @error-msg "")
  25. (trap 4 (makedir grnworkdir))
  26. (if (<> @error-msg "")
  27. ((if (= level 0)
  28. (user 1))
  29. (message "The selected directory could not be created.")
  30. (set error true))))))))
  31. (user level))
  32. (set grnworkdir (cat assignname ":")))
  33. (complete 25)
  34. (if (or @pretend (>= (getdiskspace grnworkdir) $1e00000))
  35. ((working "Copying the GRn work file ...")
  36. (run (cat "copy " (tackon (pathonly @icon) "lib/netnews#?.grnrc ") grnworkdir " quiet buf 512"))
  37. (working)
  38. (complete 50)
  39. (if noassign
  40. ((startup @app-name
  41. (command (cat "Assign " assignname ": \"" grnworkdir "\""))
  42. (prompt "The installer will add an assignment to your User-Startup.")
  43. (help "By adding that assignment to your User-Startup, GRn will always be able to find the installed data.\n\n" @startup-help))
  44. (complete 75)
  45. (if (not @pretend)
  46. (makeassign assignname grnworkdir)))))
  47. (abort "You need at least 30 MB of free space on the selected device to install the data."))
  48. (complete 100)
  49. (set @default-dest "")
  50. (exit))
  51. (abort "You need at least Amiga-OS 2.04 to be able to run GRn.\nPlease use your preferred newsreader or upgrade your system software."))
  52.